home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol287 / hercibm.arc / HGCTEST.BAS < prev   
Encoding:
BASIC Source File  |  1986-06-07  |  634 b   |  30 lines
  1. 10 SCREEN 2
  2. 20 DIM VERT%(120)
  3. 30 KEY OFF
  4. 40 CLS
  5. 50 INPUT "enter radius (range 10-100)";R
  6. 60 INPUT "enter number of vertices (range 3-50)";V
  7. 70 CLS
  8. 80 X0=320+R*2:Y0=100
  9. 90 PSET(X0,Y0)
  10. 100 THETA=6.28319/V:N=V-1
  11. 110 FOR I=1 TO N
  12. 120 VERT%(2*I-1)=R*2*COS(THETA*I)+320
  13. 130 VERT%(2*I)=R*SIN(THETA*I)+100
  14. 140 PSET(VERT%(2*I-1),VERT%(2*I)),1
  15. 150 NEXT I
  16. 160 N0=N
  17. 170 FOR J=1 TO N
  18. 180 FOR I= 1 TO N0
  19. 190 XN=VERT%(2*I-1):YN=VERT%(2*I)
  20. 200 LINE(X0,Y0)-(XN,YN)
  21. 210 NEXT I
  22. 220 X0=XN:Y0=YN:N0=N0-1
  23. 230 NEXT J
  24. 240 LOCATE 1,1
  25. 250 INPUT "Try another (Y/N)"; A$
  26. 260 IF A$="Y" OR A$="y" GOTO 40
  27. 270 CLS
  28. 280 SCREEN 0
  29. 290 END
  30.